Stem module

6d71369d-1de7-4e14-9a94-8daa70b2005a 14 15 12 decimal

&[DATE] &[TIME] - &[FILENAME]

L H N xd U 0 : dx H L - N / : i 1 N 1 + range U i el L dx - (dx i * + : for U 41 line :

3 appVersion 0.98.6179 ≡

Turbulent: Q1, Q2 L 1 - : H 1 : N 199 : 13 mat U L H N xd : 21 line

n 0.875 0.125 0.05 13 mat transpose : n x Profile x 1 + (x 1 - (* - (n^: 21 line

j Q i 1 U rows range vx i el U i el : vy i el n j el U i el Profile : 21 line for vx vy augment 21 line :

Q1 1 Q : laminar ≡ Q2 2 Q : mid turbulent ≡ Q3 3 Q : high turbulent ≡ 31 line

plot Q1 Q2 Q3 31 sys :

Flow profile: laminar, turbulent

plot Stem module

Stem construction over a data set data Stem stemX 1 data rows range : i 1 stemX rows range stem i el data i 1 el data i 2 el data i 1 el 022 mat : for i 1 stem rows 1 - range stem i el stem i el stem i 1 + (1 el 1 el 012 mat stack : for V stem 1 el : j 2 stem rows 1 - range V V stem j el stack : for V V data data rows row stack : 71 line :

Decades

a b N split a b a b a - (N / + range : X j n Range X j el X j 1 + el n split : X j n Log 1 X j el n split : N Decades j 0 N range X j 2 + el 10 j^: for X 21 line : 41 sys

Exponential threshold  15 X 6 Decades : 0110100100010000100000100000081 mat

LogNegative X 110 Log log10 vectorize reverse :

α 1 :

range2 X 29 Range log10 vectorize : Neg 1 - (LogNegative reverse 1 + (* : i 110 range N i el Neg i el : for data2 range2 α 10 Ones * augment : data0 N α 10 Ones * augment : 21 sys 41 line

log10 spaced stem style plot ...

Q2 data2 Stem data0 Stem 3 1 sys

Q2 data2 Stem data0 Stem 31 sys

RemToDo ... map the stems over flow profile

U data2 Stem 1 col : ε 104 -^: 12 mat i 1 U rows range map2 i el 0.125 U i el ε - Profile eval : for M2 U map2 augment : 31 line

V data0 Stem 1 col : ε 104 -^: 12 mat i 1 V rows range map0 i el 0.125 V i el ε - Profile eval : for M0 V map0 augment : 31 line

mid turbulent flow profile c/w log10 stream lines

M2 Stem 0.125 x Profile M0 Stem 3 1 sys